home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / controls / geticon2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-05-16  |  2.0 KB  |  75 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    Caption         =   "Find Some Icons"
  4.    ClientHeight    =   4470
  5.    ClientLeft      =   1785
  6.    ClientTop       =   1500
  7.    ClientWidth     =   6825
  8.    Height          =   4875
  9.    Left            =   1725
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   4470
  12.    ScaleWidth      =   6825
  13.    Top             =   1155
  14.    Width           =   6945
  15.    Begin FileListBox File1 
  16.       Height          =   1980
  17.       Left            =   3480
  18.       TabIndex        =   4
  19.       Top             =   1200
  20.       Width           =   1935
  21.    End
  22.    Begin CommandButton Command1 
  23.       Caption         =   "OK"
  24.       Height          =   495
  25.       Left            =   2640
  26.       TabIndex        =   3
  27.       Top             =   3720
  28.       Width           =   1335
  29.    End
  30.    Begin DirListBox Dir1 
  31.       Height          =   1575
  32.       Left            =   480
  33.       TabIndex        =   1
  34.       Top             =   1800
  35.       Width           =   2175
  36.    End
  37.    Begin DriveListBox Drive1 
  38.       Height          =   1530
  39.       Left            =   480
  40.       TabIndex        =   0
  41.       Top             =   1200
  42.       Width           =   1215
  43.    End
  44.    Begin Label Label1 
  45.       Alignment       =   2  'Center
  46.       Caption         =   "Navigate to the desired subdirectory containing icon (.ICO) files."
  47.       Height          =   495
  48.       Left            =   1680
  49.       TabIndex        =   2
  50.       Top             =   360
  51.       Width           =   3615
  52.    End
  53. Option Explicit
  54. Sub Command1_Click ()
  55.     form2.Hide
  56.     If file1.ListCount = 0 Then
  57.         form1.Command2.Enabled = False
  58.     Else
  59.         form1.Command2.Enabled = True
  60.     End If
  61.     form1.Show
  62.     form1.SetFocus
  63. End Sub
  64. Sub Dir1_Change ()
  65.     file1.Path = dir1.Path
  66. End Sub
  67. Sub Drive1_Change ()
  68.     dir1.Path = drive1.Drive
  69. End Sub
  70. Sub Form_Load ()
  71.     file1.Pattern = "*.ico"
  72.     drive1.Drive = "c:\vb\icons"
  73.     dir1.Path = "c:\vb\icons"
  74. End Sub
  75.